home *** CD-ROM | disk | FTP | other *** search
/ Aminet 4 / Aminet 4 - November 1994.iso / aminet / dev / m2 / m2_part1.lha / modula / src / InOut.def < prev    next >
Text File  |  1994-07-30  |  548b  |  21 lines
  1. DEFINITION MODULE InOut ;
  2.  
  3. VAR
  4.   done : BOOLEAN ;
  5.  
  6. (* Crude subset of PIM InOut, use ANSI_C StdIO instead *)
  7.  
  8. PROCEDURE Write( ch : CHAR ) ;
  9. PROCEDURE WriteLn ;
  10. PROCEDURE WriteString( str : ARRAY OF CHAR ) ;
  11. PROCEDURE WriteInt( x : LONGINT ; n : INTEGER ) ;
  12. PROCEDURE WriteOct( x : LONGINT ; n : INTEGER ) ;
  13. PROCEDURE WriteHex( x : LONGINT ; n : INTEGER ) ;
  14.  
  15. PROCEDURE Read         ( VAR ch : CHAR ) ;
  16. PROCEDURE ReadString ( VAR str : ARRAY OF CHAR ) ;
  17. PROCEDURE ReadInt    ( VAR x : INTEGER ) ;
  18. PROCEDURE ReadLongInt( VAR x : LONGINT ) ;
  19.  
  20. END InOut.
  21.